function MyGetTempFile: string;
var
MyBuffer, MyFileName: array[0..MAX_PATH] of char;
const APrefix='ABC';
begin
FillChar(MyBuffer, MAX_PATH, '0');
FillChar(MyFileName, MAX_PATH, '0');
GetTempPath(SizeOf(MyBuffer), MyBuffer);
GetTempFileName(MyBuffer, APrefix, 0, MyFileName);
Result := MyFileName;
end;